Dim objtc,Listbox
Dim tr1,tr2,tr3,tr4,tr5,tr6,tr7,tr8,tr9,tr10,tr11,tr12
Dim ValueAxis,ValueAxis2
Dim Value1
Set objtc = ScreenItems("TrendControl")
Set Listbox = ScreenItems("Listbox")

Value1=ListBox.SelIndex
'Msgbox Value1

Set tr1 = objtc.GetTrend("Trend1")
Set tr2 = objtc.GetTrend("Trend2")
Set tr3 = objtc.GetTrend("Trend3")
Set tr4 = objtc.GetTrend("Trend4")
Set tr5 = objtc.GetTrend("Trend5")
Set tr6 = objtc.GetTrend("Trend6")
Set tr7 = objtc.GetTrend("Trend7")
Set tr8 = objtc.GetTrend("Trend8")
Set tr9 = objtc.GetTrend("Trend9")
Set tr10 = objtc.GetTrend("Trend10")
Set ValueAxis = objtc.GetValueAxis("ValueAxis1")
Set ValueAxis2 = objtc.GetValueAxis("ValueAxis2")

ValueAxis2.Visible = 0
tr1.YAxis = ValueAxis


If Value1=1 Then 
 HMIRuntime.Tags("ni").Write 10
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="0.6"
tr1.TagName ="ProcessValueArchive\DDR12"
tr2.TagName ="ProcessValueArchive\DDR17"
tr3.TagName ="ProcessValueArchive\DDR14"
tr4.TagName ="ProcessValueArchive\DDR16"
tr5.TagName ="ProcessValueArchive\DDR15"
tr6.TagName ="ProcessValueArchive\P_TEL8_data3"
tr7.TagName ="ProcessValueArchive\P_TEL9_data3"
tr8.TagName ="ProcessValueArchive\P_TEL10_data3"
tr9.TagName ="ProcessValueArchive\P4_AnalogNO11"
tr10.TagName ="ProcessValueArchive\P4_AnalogNO12"



tr1.Label ="万丽"
tr2.Label ="消防局"
tr3.Label ="青田"
tr4.Label ="蜈支洲"
tr5.Label ="污水厂"
tr6.Label ="301医院压力"
tr7.Label ="滨海路压力"
tr8.Label ="土福湾压力"
tr9.Label ="出水压力1"
tr10.Label ="出水压力2"


Elseif Value1=2 Then 
 HMIRuntime.Tags("ni").Write 4
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="5000"
tr1.TagName ="ProcessValueArchive\P1_AnalogNO25"
tr2.TagName ="ProcessValueArchive\P1_AnalogNO1"
tr3.TagName ="ProcessValueArchive\P4_AnalogNO13"
tr4.TagName ="ProcessValueArchive\P4_AnalogNO14"
tr5.TagName =" "
tr6.TagName =" "
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="原水流量1"
tr2.Label ="原水流量2"
tr3.Label ="出水流量1"
tr4.Label ="出水流量2"
tr5.Label =" "
tr6.Label =" "
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "

Elseif Value1=3 Then 
 HMIRuntime.Tags("ni").Write 3
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="14"
tr1.TagName ="ProcessValueArchive\P1_AnalogNO4"
tr2.TagName ="ProcessValueArchive\P4_AnalogNO6"
tr3.TagName ="ProcessValueArchive\P4_AnalogNO5"
tr4.TagName =" "
tr5.TagName =" "
tr6.TagName =" "
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="原水PH"
tr2.Label ="出水PH1"
tr3.Label ="出水PH2"
tr4.Label =" "
tr5.Label =" "
tr6.Label =" "
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "

Elseif Value1=4 Then 
 HMIRuntime.Tags("ni").Write 10
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="4"

ValueAxis2.Visible = 1
ValueAxis2.BeginValue ="0"
ValueAxis2.EndValue ="100"
tr1.YAxis = ValueAxis2

tr1.TagName ="ProcessValueArchive\P1_AnalogNO3"
tr2.TagName ="ProcessValueArchive\P4_AnalogNO8"
tr3.TagName ="ProcessValueArchive\P4_AnalogNO7"
tr4.TagName ="ProcessValueArchive\P_TEL8_data1"
tr5.TagName ="ProcessValueArchive\P_TE9_data1"
tr6.TagName ="ProcessValueArchive\P_TEL10_data1"
tr7.TagName ="ProcessValueArchive\P3_AnalogNO1"
tr8.TagName ="ProcessValueArchive\P3_AnalogNO3"
tr9.TagName ="ProcessValueArchive\P3_AnalogNO7"
tr10.TagName ="ProcessValueArchive\P3_AnalogNO5"

tr1.Label ="原水浊度"
tr2.Label ="出水浊度1"
tr3.Label ="出水浊度2"
tr4.Label ="301医院浊度"
tr5.Label ="滨海路浊度"
tr6.Label ="土福湾浊度"
tr7.Label ="一期滤前浊度"
tr8.Label ="一期滤后浊度"
tr9.Label ="二期滤前浊度"
tr10.Label ="二期滤后浊度"

Elseif Value1=5 Then 
 HMIRuntime.Tags("ni").Write 5
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="0.5"
tr1.TagName ="ProcessValueArchive\P4_AnalogNO9"
tr2.TagName ="ProcessValueArchive\P4_AnalogNO10"
tr3.TagName ="ProcessValueArchive\P_TEL8_data2"
tr4.TagName ="ProcessValueArchive\P3_AnalogNO2"
tr5.TagName ="ProcessValueArchive\P3_AnalogNO6"
tr6.TagName =" "
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="出厂水二氧化氯1"
tr2.Label ="出厂水二氧化氯2"
tr3.Label ="301医院余氯"
tr4.Label ="一期滤后二氧化氯"
tr5.Label ="二期滤后二氧化氯"
tr6.Label =" "
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "

Elseif Value1=6 Then 
 HMIRuntime.Tags("ni").Write 5
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="5"
tr1.TagName ="ProcessValueArchive\P4_AnalogNO3"
tr2.TagName ="ProcessValueArchive\P4_AnalogNO21"
tr3.TagName ="ProcessValueArchive\P4_AnalogNO4"
tr4.TagName ="ProcessValueArchive\P27_AnalogNO1"
tr5.TagName ="ProcessValueArchive\P27_AnalogNO2"
tr6.TagName =" "
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="一期清水池液位"
tr2.Label ="二期清水池液位"
tr3.Label ="吸水井液位"
tr4.Label ="回收水池液位1"
tr5.Label ="回收水池液位2"
tr6.Label =" "
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "

Elseif Value1=7 Then 
 HMIRuntime.Tags("ni").Write 6
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="5"
tr1.TagName ="ProcessValueArchive\P21_Anolog1"
tr2.TagName ="ProcessValueArchive\P22_Anolog1"
tr3.TagName ="ProcessValueArchive\P23_Anolog1"
tr4.TagName ="ProcessValueArchive\P24_Anolog1"
tr5.TagName ="ProcessValueArchive\P25_Anolog1"
tr6.TagName ="ProcessValueArchive\P26_Anolog1"
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="1#滤池水位"
tr2.Label ="2#滤池水位"
tr3.Label ="3#滤池水位"
tr4.Label ="4#滤池水位"
tr5.Label ="5#滤池水位"
tr6.Label ="6#滤池水位"
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "

Elseif Value1=8 Then 
 HMIRuntime.Tags("ni").Write 6
ValueAxis.BeginValue ="0"
ValueAxis.EndValue ="5"
tr1.TagName ="ProcessValueArchive\P321_Anolog1"
tr2.TagName ="ProcessValueArchive\P322_Anolog1"
tr3.TagName ="ProcessValueArchive\P323_Anolog1"
tr4.TagName ="ProcessValueArchive\P324_Anolog1"
tr5.TagName ="ProcessValueArchive\P325_Anolog1"
tr6.TagName ="ProcessValueArchive\P326_Anolog1"
tr7.TagName =" "
tr8.TagName =" "
tr9.TagName =" "
tr10.TagName =" "

tr1.Label ="7#滤池水位"
tr2.Label ="8#滤池水位"
tr3.Label ="9#滤池水位"
tr4.Label ="10#滤池水位"
tr5.Label ="11#滤池水位"
tr6.Label ="12#滤池水位"
tr7.Label =" "
tr8.Label =" "
tr9.Label =" "
tr10.Label =" "


End IF